home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / form04a / shapes / flagpole.frm < prev    next >
Text File  |  1993-11-24  |  609b  |  15 lines
  1. // another form
  2. // something like a flagpole (well that's what it makes me think of)
  3. // segment = sphere 0.1 , sphere 0.5 , sphere 0.1;
  4. s = sphere 0.2 , sphere 0.1 ;
  5. bit = [s] fan 3 , 0;
  6. brseg = spacer 0.2 , bit stack 30 in 10 twist 270 grow 0.1 bend 5;
  7. base = ellipse <0.1 , 0.3 , 0.3>  fan 60 , 90 , 0.1;
  8. twisty = sphere 0.1 stack 90 in 10 twist 1100 , 0.5 grow 0.001;
  9. twisty_scaled = twisty scale 10;    /* we have to scale this because the */
  10.                                     /* grow 0.1 on the brseg will shrink it */
  11. base texture Brass_Texture , 
  12. brseg texture TEXTURE_1 ,
  13. [ twisty_scaled ]  texture White_Wood;
  14. end
  15.